home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1993 / The Association of Shareware Professionals Advantage CD-ROM 1993.iso / files / commions / ca29_1 / ca29_3.exe / DELPHITN.CMD < prev    next >
OS/2 REXX Batch file  |  1992-10-25  |  2KB  |  51 lines
  1. LEGEND " Delphi.cmd"            ; Put script name on status bar...
  2. ;
  3. ; ----- Delphi: Dial Delphi through TYMNET
  4. ; ----------------------------------------------------------------
  5. ;    Note: You must create a logon file with MKLOGON in order to
  6. ;    have this script automatically log you on... Please see the
  7. ;    file SCRIPTS.DOC
  8. ; ----------------------------------------------------------------
  9. ;    Note: This script is written to be FCALLed, executed directly (F2)
  10. ;    or attached to a dialing directory entry (for manual execution).
  11. ; ----------------------------------------------------------------
  12. ;    Note: This script requires the script TYMNET.CMD.  TYMNET.CMD
  13. ;    requires that a dialing directory entry number be prepared.
  14. ;    Unless you modify TYMNET.CMD, the entry number defaults to 10.
  15. ; ----------------------------------------------------------------
  16. ;    S0 is modified by this script.
  17. ; ----------------------------------------------------------------
  18. ;
  19. ;    Call Tymnet (if not already dialed)
  20. ;
  21.     IF NOT ISSC "TYMNET"    ; If script not available
  22.        MESS "TYMNET.CMD script not found"
  23.        EXIT         ; terminate script
  24.        ENDIF
  25.     FCALL "TYMNET"          ; Dial TYMNET (ifnot already dialed)
  26.     LEGEND " Connecting to Delphi"
  27. ;
  28. ;    Connect to Delphi
  29. ;
  30.     TRANSMIT "delphi!"      ; give telenet the host name identifier
  31. ;
  32. ;    Set states
  33. ;
  34.     SET BSUPPRESS OFF    ; Turn off blank line suppression
  35.     SET MASK ON        ; Turn on high bit mask
  36.     SET CDISPLAY OFF    ; Delphi command set
  37. ;
  38. ;    Send name and password
  39. ;
  40.     WAITFOR "Username"      ; Wait for "Username" to be received
  41. ;
  42. ;    If we have a DELLOGON file, use it
  43. ;
  44.     SET TTHRU OFF        ; Let psw be typed
  45.     IF ISSCFILE "DELLOGON" FCALL "DELLOGON"
  46. ;
  47. ;    Exit - this script may be fcalled
  48. ;
  49.     IF FCALLED FRETURN    ; Return to caller if called
  50.     ALARM            ; Otherwise, sound alarm - we're done
  51.